home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
VBUTIL.ZIP
/
PRINTFL1.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-03-04
|
3KB
|
94 lines
Form1
File Printer (Ver. 1)
Form1%
TextBox
QuitBtn
PrintBtn
Print
FilenameLbl
Filename
Form_Click
Form_LoadY
DateFormatOpt
Value>
TimeFormat
TimeFormatOpt*
NowBtn_Click
TextBox
QuitBtn_ClickV
CountryCmb_Change%
CountryCmbI
ComboItemm
VScroll1_Change
TimeScl_Changed
ScrollBarValueBox
TimeSclc
ScrollValueBox
Label1_Click
TimerBtn_Click
Count
Total
TextLine
TimerBtn
Caption
ScrollValueBox_Change
MaxLbl_Click~
TextBox_Change@
TextBox_LostFocus
QuitBtn
Enabled
False
MIN_VALUE
MAX_VALUE
MinLble
MaxLbl
SmallChange
LargeChange
properties
PrintBtn_Click
Filename
CurrentLineNumber$
MAX_LINES/
PrintHeadingq
Printer
BadFile
ExitSub
PrintHadingW
PageNumber
PageNum}
PageNumStr
PrintTab
TAB_SIZE
PageNumberStr
TextBox_KeyPress
KeyAscii
FilenameLbl_Click
Form16
PrintBtn_Click
exit sub if text box is empty
find the first internal space
truncate from the first space location and beyond
get the filename from the text box
set error-handling trap
open file for input
disable error-handling trap
print the heading of the first page
read lines from the text file
update line counter
line counter exceed page size?
new pageg
print heading
print the current line
eject the last page
release print devicee
close the file buffer
* Error-Hanlding Statements
Cannot open file
File I/O Error
PrintHeading
Page
hh:mm
MM-DD-YYYY
QuitBtn_Click
TextBox_KeyPress